home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 September / macformat-004.iso / MacFormat 16 Cover Disk / HomePublisher Demo / AHP Pouch / Additions / Select Objects With… / Same Name / Same Name
Encoding:
Text File  |  1993-09-29  |  536 b   |  27 lines  |  [SGPA/SCPG]
  1. on startup
  2. if number of items in selectedObjects() < 1 then
  3. answer "Select an object to base Name selections."
  4. exit startup
  5. end if
  6.  
  7.  
  8. put name of object (item 1 of selectedObjects())into theValue
  9. select objects where name of this object is theValue
  10. end startup
  11.  
  12.  
  13. on help
  14. put  dialog (preload, 128) into thedialog
  15. put "---a\0" into item2
  16. put "---a\1" into item3
  17. put "---a\2" into item4
  18.  
  19.  
  20. repeat forever
  21. get dialog(display, thedialog)
  22. if (it = 1) then exit repeat
  23. end repeat
  24. get dialog(dispose, thedialog)
  25. end help
  26.  
  27.     d<BÏ